Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/5-Fonts & Software/Demo Software/Wingz/TF

Wingz Script | 1989-02-08 | 11KB | 415 lines

WNGZWZSC01b1
Type in Chart Number
Type in Series Number
Show Notes
Hide Notes
Show Notes
Hide Notes
Show Graph
Hide Graph
Object number?
Object location?
Test Flight
Test Flight
gfffff
call tf:drivedo()
Hard Disk System
Two Floppy Drive System
call tf:graydrivename()
Your Disk Drive Configuration:
)TEST FLIGHT BETA - Version 1.O - 12/27/88
'TEST FLIGHT
  -  Version 1.O  -  2/8/89
 Copyright 1989, Informix Software, Inc.
All Rights Reserved.
computer
desk2
deskse
tffolder
scriptfolder
dgask
drive2name
harddisk
drivebutton
SH1101
SH1102
SH2101
SH2102
SH2103
SH2104
TFdir
SHdir
macIIh
macIIv
macSEh
macSEv
screenH
screenV
computer
nseries
nchart
nobject
notes
objloc
locx1
locy1
locx2
locy2
wscale
screenwidth
screenheight
bottomborder
aspect
xoffset
yoffset
toolstate
doit!
icalc#
artnotes$
sheetfolder%
first&
drive2name'
harddisk(
drivebutton)
fontsloaded*
play+
tffolder,
tfloaded-
scriptfolder.
TFmerge
deskinit
machineinit
TFOpen
TFGetScript{
gowindow
gowindowcalc+
goback
WindowIn
SelectSeries
ShowNote
ShowNotePnt]
ShowGraphP
desk2*
deskSE
location
getobjloc
tooltoggle
drivedo
graydrivename
getdrivez
tfnoticeI
define SH1101, SH1102, SH2101, SH2102, SH2103, SH2104
define TFdir, SHdir
define macIIh, macIIv, macSEh, macSEv, screenH, screenV, computer
define nseries, nchart, nobject
define notes, objloc
define locx1, locy1, locx2, locy2
define wscale, screenwidth, screenheight, bottomborder, aspect
define xoffset, yoffset, toolstate
define b1, doit, dn, icalc, artnotes
define sheetfolder, first, drive2name, harddisk, drivebutton
define fontsloaded, play, tffolder, tfloaded, scriptfolder
function TFmerge(file)
    return TFdir & file
end function
function deskinit()
    screenwidth = deskright()
    screenheight = deskbottom()
    if computer = 0
        if screenwidth >= 12780
            computer = 1
        else
            computer = 2
        end if
    end if
    if computer = 1
        yoffset = 575
        screenheight = 7510
        wscale = 100%
    elseif computer = 2
        wscale = 75%
        xoffset = 240
        screenwidth = 9600
        screenheight = 6420
    end if
    return computer
end function
function machineinit(n)
    TF:computer = n
end function
function TFOpen(wname,dorepaint)
    if computer = 1 or computer = 2
        if dorepaint = 1
            repaint off
        end if
        open drive2name & tffolder & sheetfolder & ":" & wname
        if computer = 1
            call tf:desk2()
        end if
        if computer = 2
            call tf:deskse()
        end if
        unselect
        tool sheet
        if dorepaint = 1
            repaint window
            repaint on
        end if
    end if
end function
function TFGetScript(wname)
    if computer = 1 or computer = 2
        if tf:tffolder = "" and tf:scriptfolder = ""
            get script wname
        else
            get script drive2name & tffolder & scriptfolder & ":" & wname
        end if
    end if
end function {TFGetScript}
function gowindow(sheetname,dorepaint)
    if dorepaint = 1
        repaint off
    end if
    go to window drive2name & tffolder & sheetfolder & ":" & sheetname
    unselect
    tool sheet
    if dorepaint = 1
        repaint window
        repaint on
    end if
end function {gowindow}
function gowindowcalc(sheetname,dorepaint)
    if dorepaint = 1
        repaint off
    end if
    go to window drive2name & tffolder & sheetfolder & ":" & sheetname
    recalc
    unselect
    tool sheet
    if dorepaint = 1
        repaint window
        repaint on
    end if
end function {gowindowcalc}
function goback(filename,dorepaint)
    if dorepaint = 1
        repaint off
    end if
    close now
    go to window drive2name & tffolder & sheetfolder & ":" & filename
    unselect
    tool sheet
    if dorepaint = 1
        repaint window
        repaint on
    end if
end function {go back}
function WindowIn()
    if computer = 1
        call tf:desk2()
    end if
    if computer = 2
        call tf:deskse()
    end if
end function {Window In}
function SelectSeries()
    nchart = dg:dgask("Type in Chart Number",nchart,6)
    nseries = dg:dgask("Type in Series Number",nseries,6)
    select chart value(nchart) series value(nseries)
end function
function ShowNote(objnum,statenum)
define n
n = statenum
if n = 1
    repaint off
    hide notes
    select object objnum
    show control name "Show Notes"
    unselect
    repaint window
    repaint on
elseif n = 0
    repaint off
    show notes
    select object objnum
    show control name "Hide Notes"
    unselect
    repaint objects
    repaint on
end if
if statenum = 1
    n = 0
elseif statenum = 0
    n = 1
end if
return n
end function {ShowNote}
function ShowNotePnt(buttonnum,fieldnum,statenum)
define n
n = statenum
if n = 1
    repaint off
    hide notes
    select object buttonnum
    show control name "Show Notes"
    unselect
    repaint window
    repaint on
elseif n = 0
    repaint off
    show notes
    select object buttonnum
    show control name "Hide Notes"
    unselect
    repaint object buttonnum
    repaint object fieldnum
    unselect
    repaint on
end if
if statenum = 1
    n = 0
elseif statenum = 0
    n = 1
end if
return n
end function {ShowNotePnt}
function ShowGraph(objnum,statenum)
define n
n = statenum
if n = 1
    repaint off
    hide graphics
    select object objnum
    show control name "Show Graph"
    unselect
    repaint window
    repaint on
elseif n = 0
    repaint off
    show graphics
    select object objnum
    show control name "Hide Graph"
    unselect
    repaint objects
    repaint on
end if
if statenum = 1
    n = 0
elseif statenum = 0
    n = 1
end if
return n
end function {Show Graph}
function desk2()
    define woffset
    wscale = 1.0
    woffset = 575
    screenwidth = 12780
    screenheight = 7510
    window scale wscale
    window size (screenwidth,screenheight+woffset)
    window location (0,woffset)
end function {deskII}
function deskSE()
    define woffset
    wscale = .75
    woffset = 240
    screenwidth = 9600
    screenheight = 6420
    window scale wscale
    window size (screenwidth+woffset,screenheight)
    window location (woffset,0)
end function {deskSE}
function location(obj,loc)
    repaint off
    select object obj
    object location range(loc)
    unselect
    repaint on
    return loc
end function
function getobjloc()
    nobject = dg:dgask("Object number?", nobject, 6)
    objloc = dg:dgask("Object location?", objloc, 12)
    select object value(nobject)
    object location objloc
    unselect
    return objloc
end function
function tooltoggle()
    if toolstate = 0
        toolstate = 1
    elseif toolstate = 1
        toolstate = 0
    else
        toolstate = 0
    end if
end function {tooltoggle}
function drivedo()
    tf:doit = 1
    if drivebutton = 2
{        tf:drive2name = ctstring(3,0) }
        tf:drive2name = "Test Flight"
    end if
end function {drivedo}
function graydrivename()
    define t
    t = ctvalue(2,1)
    if t = 0
        tf:harddisk = 0
        tf:drivebutton = 2
        tf:drive2name = "Test Flight"
        select control 3
        ungrey control
        repaint control
    else
        tf:harddisk = 1
        tf:drivebutton = 1
        tf:drive2name = ""
        select control 3
        grey control
        repaint control
    end if
end function {graydrivename}
function getdrive()
    define dbx, dby
    tf:doit = 0
    dbx = 0.0
    dby = .7
    new modal dialog box at (-1, -1) (4.6 inch, 3 inch)
    add push button "OK@" at ((3.5 + dbx) inch, (1.8 + dby) inch) +(.6 inch, .3 inch)
    dialog default push button
    script "call tf:drivedo()"
    add radio button "Hard Disk System", "Two Floppy Drive System" at
        ((.25 + dbx) inch, (.75 + dby) inch) +(4 inch, .75 inch)
    script "call tf:graydrivename()"
    radio button drivebutton
    add text "Your Disk Drive Configuration:" at
        ((.25 + dbx) inch, (.25 + dby) inch) +(4.25 inch, .3 inch)
    no line border
    add text "TEST FLIGHT BETA - Version 1.O - 12/27/88" at
        (.25 inch, .25 inch) +(4.25 inch, .3 inch)
    no line border
    use dialog box
end function {getdrive}
function tfnotice()
    define dbx, dby
    dbx = 0
    dby = 0
    new modal dialog box at (-1, -1) (4.6 inch, 2 inch)
    add push button "OK@" at ((3.5 + dbx) inch, (1.5 + dby) inch) +(.6 inch, .3 inch)
    dialog default push button
    add text "TEST FLIGHT
  -  Version 1.O  -  2/8/89" at
        (.3 inch, .3 inch) +(4.25 inch, .3 inch)
    no line border
    add text "
 Copyright 1989, Informix Software, Inc." at
        (.3 inch, .75 inch) +(4.25 inch, .3 inch)
    no line border
    add text "All Rights Reserved." at
        (.3 inch, 1.05 inch) +(4.25 inch, .3 inch)
    no line border
    use dialog box
end function {tfnotice}